unit UUsuarioMd;

interface

type
  TUsuarioMd = class(TObject)

    private
      idUsuario : Integer;
      nomeUsuario : String;
      senhaUsuario : String;      

    public

      constructor Create;
      destructor Destroy; Overload;

      function getIdUsuario : Integer;
      procedure setIdUsuario(idUsuario : Integer);

      function getNomeUsuario : String;
      procedure setNomeUsuario(nomeUsuario : String);

      function getSenhaUsuario : String;
      procedure setSenhaUsuario(senhaUsuario : String);

end;

implementation

constructor TUsuarioMd.Create;
begin
  inherited;
end;

destructor TUsuarioMd.Destroy;
begin
  inherited;
end;

function TUsuarioMd.getIdUsuario : Integer;
begin
  result := self.idUsuario;
end;

procedure TUsuarioMd.setIdUsuario(idUsuario : Integer);
begin
  self.idUsuario := idUsuario;
end;

function TUsuarioMd.getNomeUsuario : String;
begin
  result := self.nomeUsuario;
end;

procedure TUsuarioMd.setNomeUsuario(nomeUsuario : String);
begin
  self.nomeUsuario := nomeUsuario;
end;

function TUsuarioMd.getSenhaUsuario : String;
begin
  result := self.senhaUsuario;
end;

procedure TUsuarioMd.setSenhaUsuario(senhaUsuario : String);
begin
  self.senhaUsuario := senhaUsuario;
end;

end.
 